home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / wwbbs26.lha / WWBBSDoors / cybmods2.lha / hacker46.lha / hacker / Misc / rxx.setup < prev    next >
Encoding:
Text File  |  1993-12-26  |  1.3 KB  |  25 lines
  1. /*  Hacker v3.3 Setup File - Use caution if you decide to edit this file. */
  2.  
  3. date=date();newdate=date;termtype=2
  4. if exists(misc'tt'termtype'.start') & termtype > 0 then do;sendfile misc'tt'termtype'.start';end;else sendfile misc'sys.start'
  5.  
  6. acess = 0
  7. RETURN = 'Hit [RETURN] to Continue: '
  8. WD=0;EXPERT = 0;TOTALUSERS = 0;WINFLAG = 0;MAINCOUNT = 0;HEHIT = 0;BANKMONEY = 1000000
  9. MEGS = 10;SCA = 1;BW = 1;TROJ = 1;MK = 1;drty = 1;ttyp = 1;xrp = 0
  10. LASTFIGHT = 'None';TOTALPLAYS = 0;totmgcr = 0;TOTALWINS = 0;TOTALLOSS = 0
  11. MEGSLOST = 0;BWUSED = 0;TROJUSED = 0;SCAUSED = 0;MKUSED = 0;MONEY = 1000
  12. LEVEL = 1;LEVNAME = 'Beginner';EXBTYPE = 0;MAINCOUNTER = 0;MAXTURNS = 30
  13. SAVINGS = 0;thecard=0
  14.  
  15. if ~exists(save'BANK') then do;txt='makedir 'save'Bank';address command ''txt;end
  16. if ~exists(BNK'MONBANK') then do;call open gag, (BNK'MONBANK'), 'W';call writeln gag, '1000000000';call close gag;end
  17. call open gag, (bnk'monbank'), 'R';bankmoney=readln(gag);call close gag
  18. if exists(BNK''NAME) then do;call open gag, (BNK''NAME), 'R';SAVINGS = readln(gag);call close gag;end
  19. if ~exists(BNK''NAME) then do;call open gag, (BNK''NAME), 'W';call writeln gag, 0;call close gag;end
  20. if ~exists(save'Players') then do;address command 'makedir 'save'Players';end
  21. if ~exists(mess) then do;address command 'makedir 'save'Messages';end
  22.  
  23. boom=1
  24.  
  25.